home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 2002 #3
/
Amiga Plus CD - 2002 - No. 03.iso
/
AmiSoft
/
Biz
/
Patch
/
Nc21.lha
/
2.1
/
CManager
/
Rexx
/
SendAmFTP.rexx
next >
Wrap
OS/2 REXX Batch file
|
1998-09-25
|
357b
|
28 lines
/*
*
* $VER: SendAmFTP.rexx 1.1 (3.8.98) by Simone Tellini
*
*/
Options Results
Parse Arg '"'site'" "'ftpprg'"'
IF ~SHOW(P,'AMFTP.1') THEN DO
Address Command 'Run <>NIL:' ftpprg
Address Command 'SYS:RexxC/WaitForPort' AMFTP.1
END
'GETENTRY' ftp
Address AMFTP.1
if ftp.type ~= 'FTP' then
ftp.advanced = 0
'CONNECTSTEM' ftp
Exit 0